perm filename KNOW.PRF[F75,JMC]1 blob sn#192377 filedate 1975-12-13 generic text, type T, neo UTF8
*****ASSUME ∀W.T(P,W);

1 ∀W.T(P,W)  (1)

*****∀E ↑ W1;

2 T(P,W1)  (1)

***** 2;

3 A(FOOL,W,W1)⊃T(P,W1)  (1)

*****∀I ↑ W1;

4 ∀W1.(A(FOOL,W,W1)⊃T(P,W1))  (1)

*****∀E KNOW FOOL,P,W;

5 T(K(FOOL,P),W)≡∀W1.(A(FOOL,W,W1)⊃T(P,W1))  

***** 4:5;

6 T(K(FOOL,P),W)  (1)

*****∀I ↑ W;

7 ∀W.T(K(FOOL,P),W)  (1)

*****⊃I 1⊃↑;

8 ∀W.T(P,W)⊃∀W.T(K(FOOL,P),W)  

*****ASSUME ∀W.T(K(FOOL,P),W);

9 ∀W.T(K(FOOL,P),W)  (9)

*****∀E ↑ W;

10 T(K(FOOL,P),W)  (9)

***** 5,10;

11 ∀W1.(A(FOOL,W,W1)⊃T(P,W1))  (9)

*****∀E ↑ W;

12 A(FOOL,W,W)⊃T(P,W)  (9)

*****∀E REFLEX FOOL,W;

13 A(FOOL,W,W)  

***** 12:13;

14 T(P,W)  (9)

*****∀I ↑ W;

15 ∀W.T(P,W)  (9)

*****⊃I 9⊃↑;

16 ∀W.T(K(FOOL,P),W)⊃∀W.T(P,W)  

***** 8,16;

17 ∀W.T(P,W)≡∀W.T(K(FOOL,P),W)  

*****∀I ↑ P;

18 ∀P.(∀W.T(P,W)≡∀W.T(K(FOOL,P),W))